home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 55
/
055.d81
/
64 timer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
45 lines
10 poke53281,0:poke53280,0:gosub140
20 print"[147]64 timer - stephane st-louis"
30 forq=49152to49266:reada:pokeq,a:t=t+a:next:ift<>9872thenprint"data error":end
40 data120,169,19,141,20,3,169,192,141,21,3,88,96,41,15,24,105,48,96,173,11,220
50 data32,13,192,141,32,4,173,10,220,32,13,192,141,35,4,173,9,220,32,13,192,141
60 data 38,4,173,11,220,32,110,192,41,1,32,15,192,141,31,4,173,10,220,32,110,192
70 data41,7,32,15,192,141,34,4,173,9,220,32,110,192,41,7,32,15,192,141,37,4,169
80 data32,141,30,4,141,39,4,169,58,141,33,4,141,36,4,173,8,220,76,49,234,74,74
90 data74,74,96
100 input"hour ";h$:iflen(h$)>1then h=16
110 hh=val(right$(h$,1)):h=h+hh:poke 56331,h:input"minute";m$
120 iflen(m$)>1thenm=16*val(left$(m$,1))
130 mm=val(right$(m$,1)):m=m+mm:poke 56330,m:poke 56329,0:poke 56328,0:sys 49152
135 end
140 print"[147] [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
150 print" [152] LOADSTAR PRESENTS "
160 print" [151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
190 print
200 print" [172] [146][187]"
210 print" "
220 print" 6 4 T I[160]M[160]E[160]R "
230 print"[163][163][163][163][163][163][163][163][163][160] [146][163][163][163][163][163][163][163][163][163]";
240 print" [160] By [160]"
250 print"[163][163][163][163][163][163][163][163][163] [146][163][163][163][163][163][163][163][163][163]";
260 print" Stephane St-Louis [160]"
270 print"[163][163][163][163][163][163][163][163][163] [160][146][163][163][163][163][163][163][163][163][163]";
280 print" [207]nce activated, this "
290 print" program does not "
300 print" return to [204][207][193][196][211][212][193][210] "
310 print" [188] [146][190] "
320 print
330 print" [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
340 print" [152] PRESS SPACE[160]TO[160]CONTINUE "
350 print" [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
352 print" [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
354 print" [152] [208][210][197][211][211] [210][197][212][213][210][206] [198][207][210] [205][197][206][213] "
356 print" [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
360 print
370 print"";
380 geta$:ifa$<>" "anda$<>chr$(13)then380
390 ifa$=" "thenreturn
400 print"[147][144]load"chr$(34)"one-screen winners"chr$(34)",8"
410 print"run"
420 poke631,13:poke632,13:poke198,2:end